home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Demo.gc < prev    next >
Encoding:
Gui4CLI script  |  1998-07-06  |  2.5 KB  |  113 lines
  1. G4C
  2.  
  3. ; Demo.gc
  4. ; a simple gui to launch stuff..
  5.  
  6. WINBIG -1 -1 310 164 Demo.gc
  7. WinType 11110001
  8. varpath ''
  9.  
  10. xOnLoad
  11. ifexists assign guis:
  12.    ; ok
  13. else
  14.    extract demo.gc guipath g4cpath
  15.    assign guis: $g4cpath
  16.    cli 'c:path guis:c add'
  17. endif
  18. GuiOpen Demo.gc
  19.  
  20. xOnClose
  21. guiclose demo.gc
  22. setgad demo.gc 20 ON
  23.  
  24. xAppIcon -1 -1 :Gui4Cli 'G4C Demo' '' OFF
  25. gadid 20
  26. guiopen demo.gc
  27. setgad demo.gc 20 OFF
  28.  
  29. xOnRMB
  30. Status
  31.  
  32. BOX 0 0 0 0 out button
  33. ICON 219 9 :gui4cli
  34. CTEXT 15 9 "Might as well.." #screen 8 2 0 "0011"
  35.  
  36. TEXT 12 24 195 15 "Read the ReadMe" 40 BOX
  37. gadid 1
  38. XBUTTON 210 24 91 15 "ReadMe"
  39. update demo.gc 1 Loading...
  40. *FILENAME = guis:readme.now
  41. guiload guis:tools/read.gc
  42. Update demo.gc 1 'Read the ReadMe'
  43.  
  44. TEXT 12 39 195 15 "Read the Guide" 40 BOX
  45. gadid 2
  46. XBUTTON 210 39 91 15 "Guide"
  47. update demo.gc 2 Loading...
  48. run 'multiview guis:docs/Gui4Cli.guide'
  49. update demo.gc 2 'Read the Guide'
  50.  
  51. TEXT 12 54 195 15 "Run the File Manager" 40 BOX
  52. gadid 3
  53. XBUTTON 210 54 91 15 "Dir.gc"
  54. update demo.gc 3 Loading...
  55. guiload guis:dir/dir.gc
  56. update demo.gc 3 'Run the File Manager'
  57.  
  58. TEXT 12 69 195 15 "Search for Files" 40 BOX
  59. gadid 21
  60. XBUTTON 210 69 91 15 "FSearch.gc"
  61. update demo.gc 21 Loading...
  62. guiload guis:g4c/fsearch/fsearch.gc
  63. update demo.gc 21 'Search for Files'
  64.  
  65. TEXT 12 84 195 15 "Replace text in files" 40 BOX
  66. gadid 22
  67. XBUTTON 210 84 91 15 "Rep.gc"
  68. update demo.gc 22 Loading...
  69. guiload guis:g4c/rep.gc
  70. update demo.gc 22 'Replace text in files'
  71.  
  72. TEXT 12 99 195 15 "Read a Guide fast" 40 BOX
  73. gadid 6
  74. XBUTTON 210 99 91 15 "FastRead"
  75. update demo.gc 6 Loading...
  76. guiload guis:tools/fastread/fastread.gc
  77. update demo.gc 6 'Read a Guide fast'
  78.  
  79. TEXT 12 114 195 15 "Change the Palette" 40 BOX
  80. gadid 5
  81. XBUTTON 210 114 91 15 "Palette"
  82. update demo.gc 5 Loading...
  83. guiload guis:tools/palette.gc
  84. update demo.gc 5 'Change the Palette'
  85.  
  86. TEXT 12 129 195 15 "Look at the Tutorials" 40 BOX
  87. gadid 4
  88. XBUTTON 210 129 91 15 "Tutorials"
  89. update demo.gc 4 Loading...
  90. guiload guis:docs/tutorials.gc
  91. update demo.gc 4 'Look at the Tutorials'
  92.  
  93. TEXT 12 144 195 15 "Make a Gui.." 40 BOX
  94. gadid 7
  95.  
  96. XBUTTON 210 144 91 15 "GuiEdit"
  97. update demo.gc 7 Loading...
  98. guiname = ''
  99. ReqFile -1 -1 300 200 "Enter GUI Name:" LOAD guiname 'ram:'
  100. if $guiname > ''
  101.    ifexists file $guiname    ; chose existing gui
  102.        ;
  103.    else
  104.        extract guiname file name
  105.        .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen $name\n\nxOnClose\nGuiQuit $name\n\n'
  106.        copy env:.dummy $guiname
  107.    endif
  108.    guiload guis:tools/guiedit.gc
  109.    guiload $guiname
  110. endif
  111. update demo.gc 7 'Make a Gui..'
  112.  
  113.